#!/bin/perl
use strict ;
use Data::Dumper;
use LWP::Simple;
use File::Copy;
require LWP::UserAgent;
my $ua = LWP::UserAgent->new;
   $ua->timeout(10);

move('collectvideoryo.html','collectvideoryo.html.backup') or die "ne peux pas creer de backup ($!)"; # cree un backup de l'ancienne liste html


my @csv ;
open(FOUT,'+>collectvideoryo.html');
open(F,'collectvideoryo.html.backup') or die "$!" ;
while(<F>) {
	if (/<a\s+href="(http:\/\/www\.allocine\.fr\/film\/fichefilm_gen_cfilm=(\d+)\.html)"\s+target="_blank">Voir<\/a>/i) { # si l'on trouve un lien qui pointe vers allocine SANS image-> on cherche l'image
		print "UPDATING ".substr($_,0,40)."\n";
		my $url = $1 ;
		my $response = $ua->get($url); # on t?l?charge la page chez allocine
		if ($response->is_success) { # ok
			my $html = $response->content;
			if ($html =~ /<img src="(.+?)" border="0" alt="" class="affichette"/) { # on extrait le lien vers l'affiche
				my $img = $1;
				s/\s+target="_blank">Voir<\/a>/ alt="$img" target="_blank">Voir<\/a>/i; # on modifie le lien pour lui mettre l'image
				print FOUT $_;	# on r?injecte la ligne
			} else {
				print FOUT $_;	# on recopie la ligne tel kel
			}
		} else { # erreur dans le t?l?chargement, on recopie tel quel
			print FOUT $_;
		}
	} else { # pas de lien, on recopie tel quel
		print FOUT $_;
	}
}
close F;
close FOUT;